home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Database How-To / Visual Basic 4 Database - How-to (The Waite Group)(1995).iso / errors.fr_ / errors.fr (.txt)
Encoding:
Visual Basic Form  |  1995-07-19  |  2.4 KB  |  74 lines
  1. VERSION 4.00
  2. Begin VB.Form frmODBCErrors 
  3.    Caption         =   "ODBC Error"
  4.    ClientHeight    =   3090
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   6120
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   0
  11.       weight          =   700
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   3585
  18.    Left            =   990
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    ScaleHeight     =   3090
  22.    ScaleWidth      =   6120
  23.    Top             =   1095
  24.    Width           =   6330
  25.    Begin VB.CommandButton cmdQuit 
  26.       Caption         =   "OK"
  27.       Height          =   375
  28.       Left            =   4920
  29.       TabIndex        =   1
  30.       Top             =   2640
  31.       Width           =   1095
  32.    End
  33.    Begin MSOutl.Outline outErrors 
  34.       Height          =   2415
  35.       Left            =   120
  36.       TabIndex        =   0
  37.       Top             =   120
  38.       Width           =   5895
  39.       _Version        =   65536
  40.       _ExtentX        =   10398
  41.       _ExtentY        =   4260
  42.       _StockProps     =   77
  43.       Style           =   0
  44.    End
  45. Attribute VB_Name = "frmODBCErrors"
  46. Attribute VB_Creatable = False
  47. Attribute VB_Exposed = False
  48. Option Explicit
  49. 'For this form to work properly, the Microsoft
  50. 'Outline control must be installed in the Toolbox.
  51. Private Sub cmdQuit_Click()
  52.     Unload Me
  53. End Sub
  54. Private Sub Form_Resize()
  55.     If Me.WindowState = NORMAL Then
  56.         If Me.ScaleHeight < (4 * cmdQuit.Height) Then
  57.             Me.Height = (6 * cmdQuit.Height)
  58.         End If
  59.         If Me.ScaleWidth < (4 * cmdQuit.Width) Then
  60.             Me.Width = (4 * cmdQuit.Width)
  61.         End If
  62.         'Center the form
  63.         Me.TOP = (Screen.Height - Me.Height) / 2
  64.         Me.Left = (Screen.Width - Me.Width) / 2
  65.         'Redraw the controls
  66.         cmdQuit.TOP = Me.ScaleHeight - (1.25 * cmdQuit.Height)
  67.         cmdQuit.Left = Me.ScaleWidth - (cmdQuit.Width + 0.25 * cmdQuit.Height)
  68.         outErrors.TOP = 0.25 * cmdQuit.Height
  69.         outErrors.Left = 0.25 * cmdQuit.Height
  70.         outErrors.Width = Me.ScaleWidth - 0.5 * cmdQuit.Height
  71.         outErrors.Height = cmdQuit.TOP - 0.5 * cmdQuit.Height
  72.     End If
  73. End Sub
  74.